<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<!--#include file="../asp/sitemap.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>生成友情链接页</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
</head>
<body style="margin-left:50px;margin-top:0px;">
<%
Dim filepath
Dim sys_domainurl,sys_today,sys_lastmod_y,sys_lastmod_ym,sys_lastmod_ymd,sys_lastmod_ymdhhmm,sys_lastmod_ymdhhmmss, ntime,y,m,d,hh,mm,ss
sys_domainurl="http://"&Request.ServerVariables("SERVER_NAME")
ntime=Now()
y=Year(ntime)
m=CStr(Month(ntime))
d=CStr(Day(ntime))
hh=CStr(Hour(ntime))
mm=CStr(minute(ntime))
ss=CStr(second(ntime))
If Len(m)=1 Then m="0"&m
If Len(d)=1 Then d="0"&d
If Len(hh)=1 Then hh="0"&hh
If Len(mm)=1 Then mm="0"&mm
If Len(ss)=1 Then ss="0"&ss
sys_lastmod_y=y
sys_lastmod_ym=y&"-"&m
sys_lastmod_ymd=y&"-"&m&"-"&d
sys_lastmod_ymdhhmm=y&"-"&m&"-"&d&"T"&hh&":"&mm
sys_lastmod_ymdhhmm=y&"-"&m&"-"&d&"T"&hh&":"&mm&":"&ss
S_TEMPLATE=""
S_HTMLMBUFFER=""
Call Sitemap(1)
filepath=GetPath("sitemap.xml")
Call SaveFile(filepath,S_HTMLMBUFFER)

%>
<span id="result" style="clor:blue">成功生成sitemap&nbsp;<a href="../sitemap.xml" target="_blank"><span style="color:red;">点击查看</span></a></span>
<script type="text/javascript">
<!--
	parent.document.getElementById("mon").value="sitemapdone";
//-->
</script>
</body>
</html>
